home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / e-tools / egui-tools / src / system_test.e < prev   
Encoding:
Text File  |  1996-06-15  |  831 b   |  24 lines
  1. /* 
  2.  *  Testing the >system.m<
  3.  * -======================-
  4.  * 
  5.  */
  6.  
  7. MODULE  'tools/system'          -> The system-Module in this dir...
  8.  
  9. PROC main()                     -> The main-Procedure
  10.  DEF    config:PTR TO syskonfig -> Variabledefinition
  11.   NEW config.check()            -> INIT the Object and Check the Config
  12.    WriteF(' System-Config:\n\n')-> Headline for the Config-Report
  13.     WriteF(' CPU : \d\n',config.cpu)    -> Our Cpu-Type
  14.      WriteF(' FPU : \d\n',config.fpu)   -> Our Fpu-Type
  15.       WriteF(' Kick: \d\n',config.kick)   -> Our Kick-Version
  16.    IF config.gfx=TRUE           -> Get the graphic-Mode...
  17.     WriteF(' Gfx : OCS/ECS\n')  -> We have an OCS/ECS-Amiga...
  18.    ELSE
  19.     WriteF(' Gfx : AGA\n')      -> We have an AA-Machine...
  20.    ENDIF
  21.   END config                    -> Free the Memory for the Module
  22. ENDPROC
  23.  
  24.